## error handling
tryIE <- function(code, silent=F){
    tryCatch(code, error=function(c) 'Error: Please check if params make sense',
             warning = function(c) 'Error: Please check if params make sense',
             message = function(c) 'Error: Please check if params make sense')
}

shinyServer(
    function(input, output){
        ################################metrics#############################
        numlift_prop_test <- reactive({
            
        })
    }
)